Libris Britannia 4/science library(b).zip/science library(b)/MEDICAL/H121A.ZIP/FILES6.EXE/lha/NUTRI.CHK

Text File | 1991-07-15 | 2KB | 169 lines

******************************************************************************
*NUTRI.CHK                                                                   *
*Check file for example data set for nutrition anthropometry within Epi Info *
* version 5.  Note that this file will not work with earlier versions of Epi *
* Info.                                                                      *
******************************************************************************

NAME
  UPDATE OFF
  COLOR QUESTION 31
  COLOR DATA 112
  COLOR BACKGROUND 1
  SET ALL FIELDCHAR " "
  UPDATE
  ENTER
  AutoJump SEX
END

SEX
  Legal
    M
    1
    F
    2
  END
  AutoJump AGE
END

AGE
  Range 0 +inf
  AutoJump YRS
END

BIRTHDATE
  AutoJump VISITDATE
  IF birthdate = .
  THEN
    GOTO WEIGHT
  ENDIF
END

YRS
  Range 0 +inf
  AutoJump BIRTHDATE
  IF YRS = .
  THEN
    GOTO BIRTHDATE
  ELSE
    IF AGE = . OR AGE = 0
    THEN
      LET AGE = 0
    ENDIF
    LET AGE = AGE + (YRS * 12)
    LET YRS = 0
  ENDIF
END

VISITDATE
  IF visitDATE = .
  THEN
    GOTO WEIGHT
  ELSE
    LET AGE = (VISITDATE - BIRTHDATE) /30.44
  ENDIF
END

WEIGHT
  Range 0 +inf
  IF WEIGHT = .
  THEN
    GOTO LBS
  ELSE
    GOTO HEIGHT
  ENDIF
END

LBS
  Range 0 +inf
END

OZS
  Range 0 +inf
  IF OZS = .
  THEN
    OZS = 0
  ENDIF
  IF LBS = .
  THEN
    LBS = 0
  ENDIF
  LET WEIGHT = (LBS + (OZS/16)) * 0.45359237
  GOTO HEIGHT
END

HAP
  NoEnter
END

HAZ
  NoEnter
END

HAM
  NoEnter
END

HEIGHT
  Range 0 +inf
  IF HEIGHT = .
  THEN
    GOTO FT
  ELSE
    LOAD ENTFACE.BIN
    CALL ENTFACE 75
    UPDATE
    GOTO AREA
  ENDIF
END

WAP
  NoEnter
END

WAZ
  NoEnter
END

WAM
  NoEnter
END

FT
  Range 0 +inf
  AutoJump IN
END

IN
  Range 0 +inf
  IF FT = .
    FT = 0
  ENDIF
  IF IN = .
    IN = 0
  ENDIF
  LET HEIGHT = ((FT*12) + IN) * 2.54
  LOAD ENTFACE.BIN
  CALL ENTFACE 75
  UPDATE
  GOTO AREA
END

WHP
  NoEnter
END

WHZ
  NoEnter
END

WHM
  NoEnter
  AutoJump NAME
END

FLAG
  NoEnter
END